home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 22
/
Cream of the Crop 22.iso
/
os2
/
ftree11a.zip
/
IMCONTUE.FTX
< prev
next >
Wrap
Text File
|
1996-10-30
|
3KB
|
89 lines
/*
Family Tree Rexx Script FTX
Copyright (C) 1996 by <Nils Meier>
Please send comments to / Kommentar bitte an
meier2@athene.informatik.uni-bonn.de
<
English: This script continues import, if there were persons left from last import. :English
Deutsch: Dieses Skript setzt den Import fort, wenn Personen vom letzten Import
übriggeblieben sind. :Deutsch
Nederlands:This script continues import, if there were persons left from last import. :Nederlands
Francais: Ce script active l'import, si des personnes ont été laissées de côté lors :Francais
du dernier import.
>
Long name is <
English: Continue Import :English
Deutsch: Import fortsetzen :Deutsch
Nederlands: Continue Import :Nederlands
Francais: Active le dernier import :Francais
>
*/
cr = '0a'x
CALL initLanguage
/* ----------------- Display Header / Kopf der Ausgabe ------------- */
head=msg.header.LANG||DATE()
SAY(head)
SAY(COPIES('=',length(head)))
SAY('')
/* ----------------- Do the Import / Importieren ------------------ */
SAY(msg.importstart.LANG)
result=importDone()
IF (result='') THEN
SAY(msg.error.LANG)
ELSE
SAY(result)
SAY
SAY(msg.done.LANG)
EXIT
/* ---------------------- LANGUAGE INIT --------------------------- */
InitLanguage:
/* Calculate Language Index */
lang='E' /* Default -> [E]nglish */
IF getLanguage()='Deutsch' THEN /* Deutsch -> [G]erman */
lang='G'
IF getLanguage()='Nederlands' THEN /* Nederlands -> [D]utch */
lang='D'
IF getLanguage()='Francais' THEN /* Francais -> [F]rench */
lang='F'
/* [E]nglish Messages */
msg.header.E = 'Importing from GEDCOM-file :'
msg.done.E = 'Done !'
msg.importstart.E = 'Starting Calculation of family tree !'cr'First person in GEDCOM-file becomes Origin :'
msg.error.E = 'No data to import !'
/* [G]erman Messages */
msg.header.G = 'Importieren von GEDCOM-Daten :'
msg.done.G = 'Fertig !'
msg.importstart.G = 'Starte jetzt Berechnung des Stammbaumes !'cr'Die erste Person aus der GEDCOM-Datei wird Ursprung :'
/* [D]utch Messages */
msg.header.D = 'Importing from GEDCOM-file :'
msg.done.D = 'Done !'
msg.importstart.D = 'Starting Calculation of family tree !'cr'First person in GEDCOM-file becomes Origin :'
/* [F]rench Messages */
msg.header.F = "Import de GEDCOM-file :"
msg.done.F = "Fait !"
msg.importstart.F = "Début de Calcul de l'arbre généalogique !"cr"La Première personne dans le fichier GEDCOM est considérée comme Origine :"
/* Done */
RETURN